home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 35 / Amiga Format AFCD35 (Issue 119, Jan 1999).iso / -seriously_amiga- / misc / sullotrng / installlot < prev    next >
Text File  |  1998-11-09  |  5KB  |  218 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: SulliTech Lottery SelectorV2.0 (Sept.1998)
  4. ;
  5. ; Title:
  6. ;    SullotRNG Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for SullotRNG
  10. ;
  11. ; Installer script by Pete Sullivan
  12. ;
  13. ;**************************************************
  14.  
  15. (set true 1)
  16. (set false 0)
  17. (set quote "\"")
  18. (set nothing "")
  19. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  20.  
  21. (set SullotRNG_dir (getassign "SullotRNG"))
  22. (set c_dir (getassign "C"))
  23. (set libs_dir (getassign "LIBS"))
  24. (set fonts_dir (getassign "FONTS"))
  25. (set devs_dir (getassign "DEVS"))
  26. (set s_dir (getassign "S"))
  27. (set wbstartup_dir (getassign "SYS:WBSTARTUP"))
  28.  
  29. (set Src_root "")
  30. (set Src_c "c/")
  31. (set Src_s "s/")
  32. (set Src_libs "libs/")
  33. (set Src_devs "devs/")
  34. (set Src_rexx "rexx/")
  35. (set Src_DATA "DATA/")
  36. (set Src_Sullitech "/")
  37. (set Src_docs "Docs/")
  38. (set Src_fonts "Fonts/")
  39. (set Src_WBStartup "WBStartup/")
  40. (set Src_AmiFTP "AmiFTP/")
  41. (set Temp_dir "ram:t/")
  42.  
  43. (set MSG_CopyDevs1 "\n\nCopying needed device ")
  44. (set MSG_CopyDevs2 " to DEVS:")
  45.  
  46. ; start with not updated software!
  47.  
  48. (set is_update false)
  49.  
  50. (if  (<> SullotRNG_dir nothing)
  51.      (if  (askbool
  52.                (prompt "\n\n\nAn earlier version of PalomaFE already exists in"
  53.                " your drawer named: \n\n"
  54.                quote SullotRNG_dir quote
  55.                "\n\nDo you want the update installed over it?")
  56.                (help
  57.                "\n\n\nThe installer has determined that you already have a "
  58.                "some version of the SulliTech Random Number Generator software installed "
  59.                "on your system.  If this is wrong or you want the update "
  60.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  61.                )
  62.                (default 1)
  63.           )
  64.                (set is_update true) 
  65.  
  66. ;else ask where to put software
  67.  
  68.                (
  69.                (set SullotRNG_dir
  70.                (askdir
  71.                     (prompt "Where would you like the updated software "
  72.                     "installed?\n"
  73.                     "The directory 'SullotRNG' will be created automatically.\n")
  74.                     (help @askdir-help)
  75.                     (default @default-dest)
  76.                )
  77.                )
  78.  
  79.                (set SullotRNG_dir
  80.                (tackon SullotRNG_dir "SullotRNG")
  81.                )
  82.  
  83.                (makedir SullotRNG_dir
  84.                (infos)
  85.                )
  86.           )
  87.      )
  88. )
  89.  
  90. ; SullotRNG: was not previously assigned, so ask where to make it
  91. (if  (= SullotRNG_dir nothing)
  92.           (
  93.           (set SullotRNG_dir
  94.                (askdir
  95.                     (prompt "Where would you like the software installed?\n"
  96.                     "The directory 'SullotRNG' will be created automatically.\n")
  97.                     (help @askdir-help)
  98.                     (default @default-dest)
  99.                )
  100.           )
  101.  
  102.           (set SullotRNG_dir
  103.           (tackon SullotRNG_dir "SullotRNG")
  104.           )
  105.  
  106.  
  107.           (makedir SullotRNG_dir
  108.           (infos)
  109.           )
  110.      )
  111. )
  112.  
  113. (set @default-dest SullotRNG_dir)
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.    
  130. (complete 10)
  131.  
  132. (working omp "...Please Wait...")
  133.  
  134. (copyfiles
  135.      (prompt "Select file(s) to be copied into your WBStartup: directory:")
  136.      (help "\n\n\n\n\nThis will copy the Sullitech Random Number Generator to your WBStartup: "
  137.      "directory.\n\n\n\n\n\n\n\n"
  138.      @copyfiles-help)
  139.      (source Src_root)
  140.      (dest "SYS:WBStartup")
  141.      (pattern "(Sullot|Sullot.info)")
  142.      (confirm)
  143. )
  144.    
  145. (complete 20)
  146.  
  147. (working omp "...Please Wait...")
  148.  
  149. ;copy Cando.library
  150.  
  151. (copylib
  152.    (source (tackon Src_libs "cando.library"))
  153.    (dest "LIBS:")
  154.    (prompt "Copying needed 'Cando.library' to LIBS:")
  155.    (help @copylib-help)
  156.    (confirm)
  157. )
  158.  
  159. (complete 30)
  160.  
  161.  
  162.  
  163. ; Copy SulliTech
  164.  
  165. (working omp "...Please Wait...")
  166.    
  167. (set SullotRNG_dir
  168.      (copyfiles
  169.           (prompt "These files will be copied to the SullotRNG: directory:")
  170.           (help "\n\n\n\n\n\nThis will copy Sullot's main "
  171.           "program.\n\n\n\n\n\n\n"
  172.           @copyfiles-help)
  173.           (source Src_root)
  174.           (dest SullotRNG_dir)
  175.           (pattern "(#?Sullot|Sullot.info|ReadMe#?)")
  176.           (confirm)
  177. )
  178.  
  179.  
  180. )
  181.  
  182.  
  183. (complete 40)
  184.  
  185. ;create Documentation directory
  186.  
  187. (set Docs_dir
  188. (cat SullotRNG_dir)
  189. )
  190. (set Docs_dir
  191. (tackon Docs_dir "Docs")
  192. )
  193.  
  194. (makedir Docs_dir
  195. (infos)
  196. )
  197.  
  198. (working omp "...Please Wait...")
  199.  
  200. (copyfiles
  201.      (prompt "Select file(s) to be copied to the SullotRNG:Docs directory:")
  202.      (help "\n\n\n\n\nThis will copy the documentation for "
  203.      "Sullot.  This documentation should reside in your "
  204.      "'SullotRNG:Docs' directory.\n\n\n\n\n\n"
  205.      @copyfiles-help)
  206.      (source Src_Docs)
  207.      (dest Docs_dir)
  208.      (pattern "#?.docs#?")
  209.      (confirm)
  210.  
  211. )
  212.  
  213. (complete 50)
  214.  
  215.  
  216.  
  217. (exit)
  218.